home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / comm / tcp / hserv.lha / hserv / cgi-bin / inettime.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-24  |  212b  |  11 lines
  1. /*
  2.  
  3. */
  4.  
  5. call GetSysTime("T")
  6. gmo=GMTOffset()
  7. t1h.secs=abs(gmo)*60
  8. if gmo>0 then call AddTime("T","T1H");else call SubTime("T","T1H")
  9. call tv2ds("T")
  10. return formatdate("T","%a, %d %b %Y %X","hserv:english.prefs")
  11.